AVI F▌LMLER▌ OYNATMAK
DERG▌YE gelen Visual Basic mektuplar²ndan birτo≡unda WAV ve MIDI dosyalar²n²
τalabildi≡inizi belirtiyor, AVI ve FLI g÷rⁿntⁿ dosyalar²n² τal²■t²rmay²
soruyorsunuz. FLI dosyalar² Autodesk'in hareketli g÷rⁿntⁿ format² olup
Internet ⁿzerinde bulunabilecek baz² VBX ve OCX dosyalar² sayesinde g÷rⁿntⁿlenebilirler.
AVI dosyalar²n² g÷rⁿntⁿlemek iτin ise Windows'un bir parτas² olan medya
ayg²t²n² kullanabilirsiniz.
Declare Function mciSendString Lib ' mmsystem' (ByVal strCommand
As String, ByVal strReturn As String, ByVal iReturnLength As Integer, ByVal
hCallback As Integer)
Yukar²daki sat²r² General - Declarations b÷lⁿmⁿne yazd²ktan sonra
sat²r² herhangi bir altyordamdan a■a≡²daki gibi τa≡²rabilir, nReturn de≡i■kenini
okuyarak AVI dosyas²n²n oynat²l²p oynat²lmad²≡²n² anlayabilirsiniz.
Dim nReturn as Long
nReturn = mciSendString(' Open deneme.avi type AVIVideo Alias Video'
, ' ' ,0,0)
nReturn = mciSendString(' Play Video FullScreen' ,' ' ,0,0)
nReturn = mciSendString(' Close Video' ,' ' ,0,0)